#lang racket


(require (prefix-in com: "rh-com.rkt"))

(provide offset-surface-solid-command)


; scripts

(define (offset-surface-solid-script distance)
  (format "OffsetSrf Solid ~A" distance))


; commands

(define (offset-surface-solid-command object distance)
  (com:unselect-all-objects)
  (com:select-object object)
  (com:command (offset-surface-solid-script distance))
  (com:last-created-objects))